home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / modulesmc.lha / ModulesMC1 / teststringf.e < prev    next >
Encoding:
Text File  |  1994-11-21  |  825 b   |  26 lines
  1. MODULE '*interval' ,'*stringf20','*writef'
  2. PROC  main()  HANDLE
  3. DEF i, s[200]:STRING
  4. writef( 'xxx%\c\l\s(3,5)xxx\l\z\h[5]\r\h[2]xxx\sxxx\c\n',
  5.       ["Q",'ab',123,456,'def',"Q"])
  6. WriteF('Starting to time StringF\n')
  7. interval(TRUE)
  8. FOR i:=1 TO 2000 DO StringF(s,
  9.       'xxx%\c\l\s(3,5)xxx\l\z\h[5]\r\h[2]xxx\sxxx\c\n',
  10.       "Q",'ab',123,456,'def',"Q")
  11. WriteF('string is \s',s)
  12. interval()
  13. WriteF('Starting to time stringf\n')
  14. FOR i:=1 TO 2000 DO stringf(s,
  15.             'xxx%\c\l\s(3,5)xxx\l\z\h[5]\r\h[2]xxx\sxxx\c\n',
  16.             ["Q",'ab',123,456,'def',"Q"])
  17. WriteF('string is \s',s)
  18. interval()
  19. writef('binary 3,5,7,0 is xxx%lbxxx%-8.8lbxxx%08.8lbxxx%lbxxx\n',[3,5,7,0])
  20. writef('xxx\l\d[20]xxx\r\z\d[20]xxx\n',[1,2])
  21. writef('xxx\d[100]xxx\n',[1])
  22. writef('xxx\dxxx\n',[-123456789])
  23. EXCEPT
  24.   IF exception>0 THEN WriteF(exception)
  25. ENDPROC
  26.